home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / cybint12 / bin / demos.dxr / 00020_sair.ls < prev    next >
Encoding:
Text File  |  1996-12-14  |  268 b   |  17 lines
  1. on mouseUp
  2.   global act
  3.   set act to 1
  4.   sound playFile 2, "..\som\ovo.wav"
  5.   startTimer()
  6.   repeat while the timer < 20
  7.     nothing()
  8.   end repeat
  9.   onVis(20)
  10.   updateStage()
  11.   startTimer()
  12.   repeat while the timer < 30
  13.     nothing()
  14.   end repeat
  15.   onVis(24, 26)
  16. end
  17.